home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 09, No. 11 (1988-11)(MicroSPARC)(Side A).zip
/
Nibble Volume 09, No. 11 (1988-11)(MicroSPARC)(Side A).po
/
MOIRE.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
194b
|
1 lines
30 HGR2 : FOR Z = 1 TO 6: FOR C = 0 TO 191: HCOLOR= (A *Z) +1: HPLOT 0,0 TO 279,C:A = NOT A: NEXT : FOR B = 279 TO 0 STEP -1: HCOLOR= (A *Z) +1: HPLOT 0,0 TO B,191:A = NOT A: NEXT : NEXT